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Here we are again, and it's nearly the middle of the year. 


There will need to be a meeting in July, Жо. judge the 
competition entries. I SUGGEST that be Sunday 5th July. It is open to 
all who intend to attend to phome me and we can make arrangements for a 
different date. | 


Once again І must "SCREAM" about the lack of contributations. 
This is a club, and I expect to hear from quite a few members in 
hetween N/Letters. It shouldn't be left to the few to keep it going. If 
you are competent with the VZ., write something for others to learn. If 
you are learning send us your problems. We can and will golve them for 
you, (I hope). . 


I have published articles оп programming in FAST BASIC, 
SIMPLE BASIC, ASSEMBLER and Graphics. Surely you don't all understand 
it first-up. I don't. 


There are those that always know any new aspect that is 
brought up. It is a pity they don't write an article for us, зо ме 
could share their knowledge. Look back over. the past year. You will 
find there is only half-a-dozen names on the articles. UN J 


Even the High Scores have stopped coming in. They have got 
too high for starters. So I am reducing them to NIL again. 1 declare 
Peter Watson winner for this round. He will be barred from the games 
that he has set the high score. However he тау still attempt to TOP the 
all time high scores that I have listed. When any of his present scores 
are equalled or surpassed, he is free to enter again. Unfortunately he 
has not a competitor, as McLeans have left the club. 


You all saw the Scream Sheet in the last edition. All that 
went wrong was the Expansion Memory had packed up. And I thought that 
it was the flavour of the Chewing Gum was wrong. How wrong can you get? 
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AMAZING ADVENTURE 


CONTINUED 
BY PETER ROSS 





3070 60586600: 60702900 
3030 COSUB10. PRINT YOU GET IN Tue CAR M9 IT ORIVES"; 
1040 PRIWI*OFF. THE DRIVER SAYS ИНЕ МЕ 

3050 PRINT YOY GOING.’ WHAT 00 YOU WANT 10° 

3060 PRINT'DO? <SAY CASTLE) 00 «SAY I 00N'T'; 

3070 PRINT KNOV)" ; INPUTAS 

3090 IFAS" SAY I DON'T KHOV” THEN 3120 

3100. IFAS="SAY CASTLE® THENS 380 

3110 605065500: 60103030 

_ $420 GOSUBI0: PRINT" YOU SAY ‘E DON'T KNOW?’ BUT THE’ 
3130 PRINI'DRIVER REACHES INTO HIS POCKET * 

3149 PRINI'ANO PULLS OUT A GUM. THE DRIVER” 

3150 PRINT SAYS ‘TELL ME THE TRUTH OR ELSE’: 


3168 609086509 — ~. ~ — 
3178 PRINT*<SAY WO> OR «SAY YES)” 

3180 INPUTAS 

3700 IFAS="SAY WO" THENS230 | 

3218 IFAfs' SAY. YES'THEN3270: 605086600: 60703129 

3730 GOSUBIO:PRINT YOU SAY 'NO, NEVER.’ THE DRIVER 
3240 PRINI'PULLS THE TRIGGER." 

1750 РАТИТ'ВАЮ................ ET E 

3268 0070 47 

3270 GOSUB0PRINT YOU SAY "YES. I MM GOING ТО № 
3780 PRIMI'CASTLE 8EYONO A LARGE 0008.2. HE'S - 

3290 PRINT'DRIVER SAYS ‘THANK 10° HE PULLS"; 
3300 PRINT THE TRIGER.” а а: 
3310 PRINT'BAIG.. ... ees та” 
3320 PRINI'PRESS RETURM TO CONTINUE" ;: DPUTM —— 
3330 6090810: РАТИТ"ТНЕ JEWELS OF ORANUS WERE FOUND" 
3340 PRINT'BY AN UNKNOW PERSON, THOUGH о 
3360 PRINT ANOTHER ADVENTURER WAS SENT OW" © 
3360 PRINT THIS MISSION BUT VAS NEVER EVER" 
3170 PRINT SECH AGAIN. " : GOTOA2Q | 
3380 GOSUBIG:PRINT YOU SAY "A LARGE CASTLE. THE" 
'T WILL BE DRIVING” 

3400 PRINI'PAST A CASTLE BUT I DON'T KNOV’ 

3410 PRINT'IF ITS THE OWE YOUR LOOKING FORT 

3420 PRINT BECAUSE THERE ‘ARE THREE CASTLES" 

3430 PRINT IN THIS STATE.’ THE DRIVER STOPS’; 


— 


с AQ PRINT'THE CAR ANO SAYS "IS THIS ТЖ” 


3450 PRINT PLACE. ': COSUBGSOD - 
г 3460 РАТАТ" САТ ТЕЗ» 00 САТ OP; 


CUR S500, TFASa SAL YES DOES ose i | 
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3620 PRINT*CHAINS AND LOCKS ALL OVER IT! " 
3630 PRINT'YOU CAN SEE A BLUESTONE PATH 10° · 


- 3640 PRINT YOUR LEFT AND THE DOOR TO YOUR 


3658 PRINT'RIGHT WHAT 00 YOU WANT ТО 00 ‹60°; 

3660 PRINT'LEFT» OR <60 RIGND^;:IMPUTM ~ 

3680 IFA$="60 RIGHT” THEN3710 | 

3699 IFAS="60 LEFT® THEN3800:60SUBG600:60703570 —— 
3710 605810: РАТИТ* 60 WALK TO YOUR RIGHT МЮ ТАТ Т0"; 
3770 PRINT'BREAK THE CHAINS, BUT JUST AS ° 

3730 PRINT'YOS BROKE ONE OF THE CHAINS A" 

3740 PRINT°POLICE CAR DRIVES PAST. THEY SEE*; 

3750 PRINT*YOU BREAKING IW ANQ SENTENCE YOU": . 
3760 PRINT*TO DEATH!!!" 

3778 50901 ,9:1,9. | 

3780 PRINT YOU HAVE BEEN HANGED!!!” 


. 3790 6070 4 


809 GOSUBIO:PRINT"YOU DECIDE TO VALK TO YOUR LEFT. '; 
3810 PRINT YOU ARE BY A VERY LARGE STONE ° 

YOU. CAN SEE SOME ROPE OM " 

3830 ЕРТІС ОМ; WHAT DO YOU WANT TO" 

3849 PRINT'OU? «EXAMIME ROPE» OR (GET ROPE"; 

3850 INPUTAS 

3870 IFAS-"EXMMINE ROPE" THEN3900 ” 





... S88 TFAS="GET_ROPE® THENS950: 60706600: 605163500 
2 3900 GOSUBIO:PRINT YOU EXAMINE THE ROPE, IT LOOKS” 
— sgg PRINT'LIKE TL IS YERY STRONG ANO IT" 

5. n0 PRINT'IASE T HAD MUCH WEAR. 
-. 3980 PRINT'PRESS RETURN 


M. 
І TO CONTINUE”; : INPUTAS 
390 60103 


Я 3950 605U810: PRINT YOU PICK UP THE ROPE.” 


3070 PRINT’ <THROW ROPE> OR «CLIMS WALL> 


3980 IMPUTAS =- = 

4000 IFAS="CLIMB WALL THENAO3O 

010 TFAS="THRON ROPE" THENSO90: G0SUB6600: 0103950 
4030 GOSUBIO:PRIAT'YOU CAN'T CLIMB THE WALL BECAUSE; 


0040 PRINT ITS TOO STEEP." 


4050 PRINT 
A060 PRINT PRESS RETURN TO COMTIMUE';: 
4070 INPUTAS B 
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"EP VALE TMG' THEXAS00: 605086600: 

50 GOSUBIO: PRINT" THE PIECE OF PAPER SAIS: 
"4460 PRINT’ BEVARE. OF THE ELECTRONIC 00085!" 
ATO PRINT'AND THE EVIL ROBOTIC ARNS!“ 


4480 PRINT 
M90 PRINT'PRESS RETURN TO CONTINUE"; : INPUTAS: 60Т04350 
4500 GOSUGIO: PRINT YOU KEEP MALLING FOR ABOUT THREE”; 
4510 PRINT MINUTES. YOU HAVE NOW COME ТО А" 
A520 PRINT'ENORMOUS LAKE. WAT 9 YOU YAT’ 
4530 PRINT TO D0? <SWIN LAKE> OR © 
ASAQ PRINT” «VALE. AROUND) 
A550 INPUTAS 


4560 Y | 

4570 IFASs" SVIM LACE THENAGDO 

4580 IFAS="WALK AROUNO' THENA700: 60SU86500: 60704500 

A600 GOSUBIO: PRINT’ YOU JUP IM THE LAKE AND SWIM” 

AGIO PRINT'LIKE MAD BECAUSE THERE M MAM’ 

4620 PRINT EATING PIRANAS AFTER YOU! BUT" = 

4630 PRINT "YOU ARE TO SLOW OF A SV TMER. " : FORA- 1105500: NEXT 
A640 FORB-ITOB —— 

. : A850 FORAS ITO2: POKES 1063, 60: X-USR(O) : NEXT 
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TO7:WEXT 
A870 FORA-1T02: POLES 1063, 63: X-USR (Q) : NEXT 
A680 FORA-ITOZ: NEXT 4 
4690 WEXTB: PRINT CHOMP ! ! 1*: 6010420 
4700 GOSUBIO: PRINT’ YOU WALK AROUND THE LAKE. BUT ° 
4710 PRINT YOU DON'T SEE MIYTHING, " 


4770 609086500 
A730 PRINT <KEEP WALKING? OR <EXAMTNE LAKED"; 


ATAO INPUTAS 

A760 IFAS="EXAMINE LAKE*THENA8OO 

4770 TFAS="KEEP VALL ING" THENAB30: GOSUBGGOQ: 60104700 
4300 GOSUB1O:PRINT*YOU EXAMINE THE LAKE BUT ALL YOU"; 
1310 PRINT'SEE IS MAM EATING PIRANAS!® 

4820 60704720 

4830 GOSUBLO: PRINT" YOU VALK PAST A TREE WHAT 00 YOU"; 
ABAO PRINT WANT TO 007 «CLIMB TREES 0f 

4850 PRINT <EXAMINE TREE)"; 

4860 INPUTAS 
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A960 FORA=1T010: POKES 1063, 50: 


A980 PRINT PRESS RETURN TO, CONTINE"; : IMPUTAS 


е ара те 
Ета, 
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5000 GOSUBLO: PRINT YOU EXAMINE THE TREE. YOU CMM ^ 
S010 PRINT'SEE LOTS OF BUGS № INSECTS IN ° 


6020 PRINT THE TREE. YOU KEEP GOING FORVARD”; 
30 PRINT"FOR ABOUT AN HOUR. YOU HAYE СОМЕ"; 
GOAO PRINT TO ANOTHER SIGN POST. BUT THE * 


fe 060 PRINT RITING OF TT ES КІ VERY CLEAR’: 
Sho v ee BOGO PRIT YOU CAA SEE A BRIDGE TO YOUR” = 
| “ROJO PRINT RICHT AND A SMALL 0008 TO YOUR" 


5080 PRINT'LEFT. * : GOSUBOSOQ 
5099 PRINI'«CROSS BRIDGE» QR «OPEM 904» 
5100 TMPUTAS: LOCK=RNO( 100) 


' 6120 IFASS' OPEN DOOR" THENS150 


6130 IFA$=" CROSS BRIDGE" THENS210: 605486600: 60105060 

5150 GOSUBIO:PRINT YOU OPEN THE DOOR. BUT A 9” 

5160 PRINT'VOMM COMES QUT VITH A CRICKET" 

6170 PRINT*BAT! SHE WITS YOU OW THE HEADS” 

5.180 FORB=1T015: FORA= 101015: POKES 1063, A: K-USR (0) EXTA: NEXTB 
5190 FORB=1 T015; FORA=10T015:POKE31063, A: X-USR (0) -NEXTA: MEXTS 


6070420 

5710 GOSUBIO:PRINT’YOU CROSS THE BRIDGE 

5770 PRINT'YOU ARE WEAR A LARGE DOOR. YOU" 

5230 PRINT'CAM SEE A VALLET OM THE GROWD.* ^ 
6340 605166500: PRINT" EXMITME"; 

6350 PRINT DOOR> OR <EXAMINE WALLET? 

5369 INPUTAS 

5370 [FAS="EXAMINE DOOR'THENSATO 

5300 TFAS="EXAMINE WALLET" THENS550: 60SU86600: 60105220 
5410 GOSUBIQ.PRINT THERE I$ A COMBINATION LOCI ON“ 
5420 PRINT'TME DOOR. WHAT 00 YOU WANT TO DO"; 

5430 PRIWT*<ENTER COMBINATION> OR «OPEN " 

S PRINTOQD УВ о 

5460 -IFA$«" OPEM DOOR"THENSASO 

S470 TFAS="ENTER COMBINATION’ THENS600 

5480 605186500: 60705410 

5490 COSUBIO.PRINT"YOU TRY TO OPEN TUE DOOR BUT IT” 
5500 PRINT"IAS М.................... — 

55.10 FORA=1 T0100: B=RN0(7) :POKES 1063, 8: X=USR(0) :MEXT 
5520 PRIWT"ELECTRIC SHOCK!" 

6530 PRINT 

5540 GOTO 420 

5550 GOSUBIO:PRINT’YOU EXAMINE THE WALLET. IT HAS” 
$560 PRINT*A SMALL PIECE OF PAPER WHICH ° 

$570 PRIMT'SAYS: © COMBINATION “LOCK”. 

5580 PRINT s 
5590 PRINI'PRES RETURN TO CONTINUE? ;: DNPUTAS: 6050810: 60105 


0 
5600 GOSUBIO: PRINT" ENTER COPBIMATON:: 
5610 IFAsLOCK THENGOTOSGSQ * 


— 


^ 
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5640 60105510 

5650 6OSUBIO:PRINT'THE DOOR «SVINGS OPEN. ! YOU САМ" 
$659 PRIMT'HOM ENTER THE CASTLE. BUT THERE 

5670 PRIMT'ARE TWO NORE DOORS TO OPEN!” 


5680 605185500 

S600 PRIMI" «OPEN DOOR 1> OR «OPEM DOOR 2> 

5700 INPUTAS 

5729 IFASs'OPEN DOOR 1° THENS750 

5730 IFAS="OPEN DOOR 2'THENSGON 

5740 605086500: 60106650 

5750 GOSUBIO:PRINT'YOU OPEM DOOR NUMBER 1. BUT YOU" 
S760 PRINT°FALL INTO A DEEP CROCODILE PIT." 

5770 FORA=1 T0100: PORES 1063, A:X=USR(0) : MEXT 

5780 PRINT'SPLAT. ..... een ', 

5790 6010470 

5800 GOSUBIO:PRINT'YOU OPEN DOOR HUMBER 2. WHICH IS*; 
S810 PRINT’ THE RIGHT OWE, YOU CAN SEE A ° 

S820 PRINT MACHINE GUN OM THE GROUND. YOU 

5830 PRINT CAN ALSO SEE A CASTLE VITH AN ° 

5840 PRINT OPEN DOOR. WHAT DO YOU VANT TO 00°; 

5860 PRINT” <GET GWI OR <ENTER CASTLE?" 

5860 INPUTAS 

5880 IFAS=*ENTER CASTLE" THENS910 

5890 IFAS="GET GUM" THEWS9NO 


605485600: 60105800 . 
5910 6050810: PRINT" YOU TRY TO ENTER THE CASTLE BUT" 
5070 РЕШГТНЕ DOOR НАЗ А.................. "; 
5930 60105510 АВ 
6940 GOSUBIO:PRINT'YOU PICK UP THE MACHINE GUN WHAT”; 
5950 PRINT"DO YOM WANT TO DO? <FIRE GUM> OR"; 
6960 PRINT” <ENTER CASTLE)"; : l 
5970 INPUTAS 
5990 IFASS'ENTER CASTLE" THENS910 
6000 IFAS="FIRE GUM*THENGO20 
6010 605086600:60T05940 — — 
6020 GOSUBIO:PRINT YOU FIRE THE GUM AT THE CASTLE 
6030 PRINT SHELLS FLYING EVERYWHERE. AFTER" 
6040 PRINT" 10000 ROUNDS OF AMMUNITION THE” 
6050 PRINT CASTLE FALLS DOWI IN A LARGE" | 
6060 PRINT'HEAP, YOU CAM SEE A LARGE BOK ° 
6070 60586500... 
6080 PRINI"«FIRE AT BOX? ; «UNLOCK BOY» OR" 
22 6090 PRINT«OPEN 8007 :INPUTAS г 
.IEMS'OPER BOCTHENGISO 7.0, 

















OPEN THE BOK BUT LOTS; 
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6240 6010420 E. 
6250 GOSUBIO:PRINT"YOU UMLOCL THE BOX VITH THE KETI 
6260 PRINT'YOU FOUM IN THE PIZZA SHOP. 00°; = 
6270 PRINT*OPEM THE LID AND FINO THE УИ; 77 
6280 PRINT'OF ORAMUS INSIDE. THE MAGICAL ° 78 
6299 PRINT'POMERS OF THE JEMELS TRANSPORT’ ' 

6309 PRIMI"YOU BACK TO EARTH MD ITSELF" 

5310 PRIMT"BACK TO THE NATIONAL MUSEUM 0E" 

6320 PRIMT'ORAUS," — 

6330 FORA-I5OTOISTEP-1: POE 1063, A: X-USR(O) : NEXT 
6340 GOSUBIO:PRINT'WELL DOME YOU FOUND THE JEWELS" 
6350 PRINT" OF ORANUS AND GOT TRANSPORTED ° 

6360 PRINT"BACK TO EARTH 

6370 PRINT: PRINT: PRINT 

6399 PRINT'OO YOU VANT ANOTHER 60? «YES/M"; 

6400 INPUTAS 

610 IFAS- "YES THENRUN 

6420 IFAS="WO'THENCLS:ERD = 

6500 PRINT WHAT DO YOU VANT TO DOT": RETURE 

6600 PRINT"SORRY. I DON'T UNDERSTAND": SOUNDO, 9 

6610 IMPUT"PRESS ««C»» TO CONTINUE, «o» TO QUIT*;8f 
6620 IFLEFTS(BS, 12s" Q" THENGOSOELSERETURE 

6630 INPUT'ARE YOU SURE"; CS: IFCS-" Y" THENISQELSERETURIM 







fF ASSEMBLER and the V.Z.ROM 
by R.B.KITCH. Dec. 1991 
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"TO A number of users have requested information on writing BASIC commands in 
“assembler. Routines already exist in the V.Z. ROM to carry out these functions. The 
entry points of the routines are difficult to discern, and interfacing Assembler 
programs is not well explained in V.Z. manuals and 280 texts. 
This article concentrates on interfacing the SOUND and COLOR commands, but 
the technique developed is widely applicable. | 


Assembler programmers should be impressed by the similarity between 
Assembler and Basic that exists when using the powerful routines that exist in ROM. 
Program development and debugging time is considerably reduced., Program : size and /' 
execution time is also minimized. | Си 


Use of COLOR command from ASSEMBLER. 


The question of setting foreground and background colors from Assembler 
raises a very interesting (I think!) discussion. It is one of the topics I have 
‘earmarked" to write-up for V.Z. Users—but have not yet done so. 


Discussion of BASIC ROM Routines. 


The microsoft Level II ROM in the V.Z. contains a whole host of useful 
routines. Most are written to be interfaced into the BASIC Interpruter, but if called 
correctly they can be easily used by Assemblly language programmers. Some knowledge 
of the ROM and the interpreter is required to permit successful interfacing. 

I will use the SOUND routine to illustrate шу thinking, but will return to 
COLOR later. 


BASIC action verbs, like SOUND and COLOR, are held as TOKENS in the BASIC 
program, followed by various parameters and punctuations expressed in ASCII (usually) 
and requiring a definite syntax for each command. - The - ROM. contains. the Basic 
Interpreter and Execution Driver at 1DIEh to 1D90h. (disassemble this for your own 
interest.) The driver tests for the presence of a TOKEN, (>60 h), and then calculates 
an address in a jump table commencing at 1822 h to 1898 h.The interpreter then jumps 
off into the appropriate "action verb routines", that are located throughout the ROM. 
The action verb routine carry out.two functions. The first, is syntax checking for the 
verb, and the second is carrying out the action. If the syntax is not correct, then 
control is passed to 1EAA В — the Functuin Code Error Handler. 


.. . Ап understanding of the above paragraph is vital to understanding the 
linking of BASIC verbe into Assembler programs. и 


|. . From this discussion it would appear that there are at least THREE ways of 
linking Assembler with the ROM routines. 
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1. Create a "buffer" that contains a string of values 
tokenised program, point the HL register at the start of the string 


Interpreter at 1D1E h. This is simple to visualise , but er or y ^ Tb ME 
difficult. error reco 


2. Create à "buffer" containing a string of parametere (and punctuat onm 
point the HL register at the start, and call the action verb routine. This is the mo 
straightforward and recommended approach to the particuler problem.(with COLOR) |” 


x ais es T3 


3. Create an Assembler routine to achieve the desired result.The algorithm 
can be worked up from scratch or revised from the ROM's verb action table. This 
approach takes the most time,doesn't require ROM support, but can be very efficient, 
in terms of storage and speed. For example, to plot a line, but call the SET, RESET 
verb: as used by Basic, a suitable algorithm must be selected. Method 2. is the best 
one to follow, but as more facilities are required, then method 3. becomes useful. 
For example to clear the screen, (verb CLS) simply call D1C9 (the verb action 
routine). But suppose we want to clear to another color other than the default? Then 
a screen fill routine needs to be written from scratch. That will need a parameter 
indicating the desired screen color. 


Str ғұ f zu &F 


Essentially the Assembly Language programmer "fools" the ROM into thinking 
it is executing a BASIC program, when in fact it is being called from a machine 
language program, Herein lies the true power of the VZ's ROM routine. The ability of 
the Assembly language programmer relies upon his understanding of the V.Z. ROM to 
enable him to write very elegant programs. 


Example using SOUND Verb Action Routine 


The "BEE" routine is located at 3450 h. and is very simple to call from 
Assembler as no papameters are required.(tone and duration are preset by "BEEP") The 
programmer may be required to save the working registers on the Z80 as they are all 
altered by "BEEP". | = 


To make a beep in an Assembler program the fol lowing code is required: 






PUSH AF optional 

PUSH BC ” " 

PUSH DE т Е 

PUSH НІ, th » 

DI ; disable interrupt so that 

duration is accurate 

CALL 3450 

EI (enable interrupt) | в 
^ The disabling and later enabling of external interrupts 13 often omitted, 


but if accurate pitches (tones) and duration (m. sec) are required, then external" 
time consuming events should be switched out. | Nc m rs 


we cies ow . 
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272 = Oi wi Pu 2 д с : — E F BC — i . Ad Em — ho ddp etur ге a 
-А slightly more complex example is to call a "SOUND" having a certain рае. 


(HL reg.) and duration (BC reg.) 








;pitch duration 

;duration 

-gwitch out external events 

;dedicate Z80 to looping through tone 

generating routine | 
permit external events 





Let us lock at a more complex example of calling SOUND verb action routine at 
2BF5 h. (haven't seen that address verb before for SOUND?). This time, the aim is to 
play a TUNE from assembler, i.e. a series of notes. The technique used is method 2 on 
the previous page of this article, i.e. fool the ROM into thinking it is executing 
some Basic program, held in a "BUFFER" area of RAM. | 


Firstly recall that the Sound command in BASIC specifies a pitch (0-31) and 
a duration (1-9) separated by a comma (,). There are actually 2 forms of syntax that 
will be accepted by the Interpreter. (although not necessarily described in the 
manual!). 


FORM 1. SOUND d,4:90UND #,% :SOUND #,# : 


FORM 2. SOUND 4.4% :%,.% :%.% dg e sees 
where "#" is a 1-2 byte ASCII string of 30 h.—39 п. 
(note; there are "parameters"—Tnot like the "numbers" 
(0-255) previously put into BC and HL registers) 


In the Basic program statement table (as seen by the interpretation and 
execution driver 1D1E h.) this would look like: | | 
SOUND TOKEN,pitch ASCII number "," duration ASCII 
number ";"......ee in j 
9E h.,1-2 byte 30 h.-39 h..2C h., 1 ASCII byte 30-39 h. ЗВ В. ‚ЗА В. 


The execution driver detects the 9E h. token, and jumps off to the verb 
action routine at 2BF5 h. In this routine the syntax is checked, the ASCII range 
checked and converted to binary, and if O.K then the sound drivers at 3469 h. are 
called. If the syntax is incorrect then the error handling routines are entered at 
LEAA h. | 


өлі Айы 
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To achive all of this from Assembler and use the VZ's ROM routine involves 
the following piece of code. 32 


"№, 


TO PLAY A MELODY FROM ASSEMBLER 


LD HL.MELO © > point to melody string 


CALL 28F5 К ;call sound verb action 
o ML | — routine ·` 





р Y 












МЕО DEM "16.21;21,2;21,2;23,2;23,2;25 
DETM "28,2:26,2;25,2;23,2;23,2; 21,4 " 


(Do yod know the melody?) 


the MELO label defines a data buffer section that is executed by (ће Yeti 
action routine as if it were part of the Basic program. On termination of the : АЕ: 
control is passed to the next Assembler instruction. 5 


This technique is 
n very simple to program 


very efficient in terms of RAM storage requirements 
and quite fast in terms of execution speed. 


All three criteria are highly desirable features for Assembler programs. 


- 


CALLING THE COLOR COMMAND FROM ASSEMBLER. 


I trust that by now the method involved in connecting Assembler with Basic’s 
ROM routine is becoming clear. Your mind should be running ahead at all of the 


possibilities that are available. 


Let's first review the COLOR command in BASIC— like the SOUND command it 
has couple of parameters associated with it, and can be executed ina couple of 
forms.(syntax). . The first parameter is the foreground color (1-8) and the second, is 
the background color (0-1). These colors vary depending upon the MODE (OM, loWi, 
textNgraphics) that the screen is set in. In mode (0) | 


The background color can be green(0) or orange (1). Eight foreground colors 
are available with the "block graphics" characters (80 h.-FF h.)—green, yellow, blue, 
red, buff, cyan, magenta, orange. In mode(1). The background colors are green (0) 
and buff (1). Four foreground colors are available depending upon the background 
color set. Color set (0) is green yellow blue and red. Color set (1) is buff cyan 
magenta and orange. A copy of the mode and background color selected is stored in the 
I/O latch located at 6800 h. and in à copy of the latch located at 783B h. in the 
communication area. Bit 3 is the display mode and Bit 4 is the background color in 
the latch. A copy of the foreground color currently set is located at 7846 h. also in 
the communication area. These are all areas of memory that control hardware — and / 
also "remind" the Basic Interpretor of the currently set parameters. | s; 07 p 

















After that long description of the COLOR command, | you. 
idea of how to change the fore- and back-ground colors on the 
assembler. ie. write a routine from scratch. СС" 





-I would recommend however using the verb action routine 
whenever the tcken 97 h. is interpreted by the execution driver.  ihis enm 
uniform approach to changing colors is taken. For example the display . mode mza 
checked and the copy of the 1/0 latch at 763Bh. must be updated whenever. r 

changed. = Assembly Language programmers sometimes ^ "forget'to do «i, 














. " * ^ . г ` — 
= ds xe 
.. MS 4 







Nr orms of syntax associated with the color command are 


defines both d & b 

defines b F is default at 7846 h. 

defines f. B 15 default at 6300 h. and 
783B 





terpreter зеез this aS 
97 H. ,ASCII 31-38 В.,2С В., ASCII 30-31 h.,3A h. 


To reset foreground and background colors from Assembler the following code 
can be used. 


LD HL, COLS ;point to color setting string 
CALL 389D h. .use color verb action routine 
: ;comtinue assembler program 


cis DEM "3,0" 


FINALE. 


This “brief” paper indicates how simple and concise it is to use the 
comprehensive range of routines present in the VZ Basic ROM. The approach suggested 
minimises the amount of debugging required, because the verb action routines have been 
verified by the Basic Interpreter. The Assembler interface proposed 30 closely 
follows Basic that debugging becomes trivial. "If it works in Basic it will work in 
Assembler”. А considerable amount of mystery ig removed from Assembler. Basic 


programers can easily extend their ideas into Assembler. À 


Supporting this paper are lists of Basic reserved words with corresponding 
tokens and verb action routine entry points that are VITAL to understanding my 
technique. Disassembled portions of the interpretation/execution driver and the COLOR 
verb action routine are provided for completeness. | 

I trust that a firm understanding of BASIC, Assembler and the ROM have... — 
resulted from working through this paper. a TE A Mes ua 


— V ae 
ape a SUR № 

s омар 
ы. 








Colo 





г Е.В VERB ACTION rout ine 
(foreground, background) 








LD A, (HL) .GET NEXT CHARACTER 

CP n .IS IT A COM? 

JR 2,38C2 .YES FOREGROUND 15 DEFAULT GOTO BACKGROUND 
DECODER 

CALL ІС ‚CONVERT ASCII TO HEX AND RETURN IN A REG. 
ERROR IF >255 

OR A ,SET ZERO FLAG IF O—RANGE CHECK ON F 

JP Z,1EAA ‚Е О THEN GOTO FUNCTION CODE ERROR ROUTINE 

CP 9 "SET FLAGS FOR TEST AGAINST 9 —RANGE CHECK ON F 

JP МС, 1ЕДА -IF »8 THEN GOTO FUNCTION CODE ROUTINE 

DEC А .MAKE F IN RANGE OF 0-7 (RATHER THAN 1-9 

AND 7 ZERO MSB OF F—TO ENSURE RANGE 

SLA А .MATIPLY F BY 16.-OR SHIFT LEAST SIG. NIBBLE 

SLA А .TO MOST SIG. NIBBLE. ENSURE THAT BIT 7 IS 0 

SLA А ‚ sOR THAT BITS 4,5,6,ARE CORRECTLY SET. (TO BE ANDed 

SLA А :WITH BLOCK GRAPHICS TO PROVIDE COLOR) 

LD (7846) ,A :SAVE CORRECTED FOREGROUND COLOR IN COMM. AREA 

LD A, (HL) GET NEXT CHARACTER 

OR А .SET ZERO FLAG TO TEST FOR NULL. (END IF STATEMENT) 

RET Z . VERB. ACTION FINISHED А5 END OF BASIC STATEMENT 
REACHED 

CP .. ;IS IT A COLON 

RET 7 . YES SO VERB ACTION FINISHED AS COMPOUNDED 

— STATEMENT REACHED 

БОТ 8 „ТЕХТ NEXT. BACKGROUND VALUE 

DEFB ',' . IS IT A OMA? SYNTAX ERROR IF NOT 

CAL 281C ‚CONVERT ASCII F Em RETURN IN A REGISTER 

> 

OR А .SET ZERO FLAG TO TEST IF B-O RANGE CHECK В 

JR NZ, 3806 .IF NOT ZERO GOTO TEST UPPER RANGE 

LD A,7838 .COPY OF I/O LATCH IN COMMS.AREA PUT INTO A REG 

RES 4,A .BIT 4 SET TO ZERO TO INDSCATE BACKGROUND COLOR 

LD (7838) ‚А .UPDATE COPY OF I/O LATCH 

LD (6800) ,A . UPDATE I/O LAYCH 

RET ;FINISHED 

JP NZ, 1E4A 

LD A, (783B) 

SET 4,A | | 

LD (7838? „А 

(0 (6800) ,A .UPDATE I/O LATCH 





i DAE 

іСАЇ 

0158 

SET 0135 
СІ. 0109 
CMD 7973 
RANDOM 0105 
NEXT 2286 
DATA 1705 
INPUT 219A 
DIM 2608 
READ 21EF 
LET 1F21 
GOTO 1EC2 
RUN 1EAS 
IF 2039 
RESTORE 1D91 
GOSUB 1ЕВЁ 
RETURN  1EDE 
REM 1F07 
STOP i DA? 
ELSE 1FO7 
COPY 3912 
COLOR 3890 
VERIFY 3738 
DEFINT 1Е03 
DEFSNG  1EO6 
DEFDBL  1E09 
CRUN 372E 
MODE 2E63 






ABLE 1 


огч ROU 


y INES FOR TOKENS 
23 3 >= с — 1 #37 < 
ғғ — і 3% п 
6173da — 422997 С 
SOUND 2BFS 
RESUNE LF AF 
OUT 2AFB 
ON 1F6C 
OPEN 7979 
FIELD 797C 
GET 797Ғ 
PUT 7982 
CLOSE 7985 
LOAD 7388 
MERGE 798B 
NAME 798E 
KILL 7991 
LSET 7997 
RSET 799A 
SAVE 7980 
SYSTEM 0000 
LPRINT 2067 
DEF 795В 
РОКЕ 2CB1 
PRINT 2B6F 
COMT 1DE4 
LIST 2B2E 
LLIST 2B29 
DELETE 2ВС6 
AUTO 2008 
CLEAR 1E7A 
CLOAD 3656 
CSAVE 3449 
NEW 1849 


DOS COMMAND 


VERSION 1.2A 


4A80 
4508 
4D78 
4D92 
4E64 
AFFB 
45DB 
48C4 
48ЕР 


VERSION 





4A7C 
4В04 
4074 
4D8E 
AESC 
AFF S 
45DB 
48C4 
48EF 


: r : a ^ wx 5% ] ] PA Ы + 
. а — * 
íi 2; : 
4-% 
4 » 


ENTRY POINTS 


1.2B 


REN COMMAND 
INIT COMMAND 
DRIVE COMMAND 


PR® COMMAND 
DCOPY COMMAND 
RUN COMMAND 
BLOAD COMMAND 
BRUN COMMAND 





mmt m mum e vm one emn 
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Welcome to the Games Column. This issue I shall talk about a feu 
odds and ends; do a report on a printer game, and a review of a game 
by Scott La Brun. 


көк STOP PRESS: Delete that about the review! A late visit to 
the Post Office revealed a letter from Peter Watson with reviews of 
his. So I'1l keep mine for a later issue. CE 
| | | 

о.к. About three issues ago I reviewed the three games by Tom 
Thiel. Well І have been Playing Road Warrior and I noticed that 
instead of the "'Radar' having two different coloured dots it had 
three. _(White-You, Black-Bad guy, and BLUE-Fuel. ) .The problem was 
that mg T.V went back to black and white.If you "eat" all the blue 


dats a message appears on the screen, "Fantastic! Get ready player 
one." But instead zi getting a neu level you get the same old one. 
Nou something Eos those of you with a РЕВ — CALENDAR! 


“” 
Й 


—— € pete ee ney a 


can not find the name of the programmer. The game is found on the 
second library tape ( unless it has changed. ).. This programe "Will 
denerate a calendar for any year in the: range 1901- -1999. All you have 
to do. is specify the year." Before. you: "Press, :return. to enter the date 
ЧОЧ must have the printer "on line". сан the’ start’ of, the printing you 
uill get a "Snoopy" picture Under” ‘the ‘picture: is the year you want, 

іп Біз figures, and then the months and: dauslT.This! Programe is useful 
if you decide to find the original. dag оғ”? your. birthday or for just an 
ordinary date’s calendar. Also there. is. a programme which can be used 
to | double check "CALENDAR". . This programe: is alsa found on tape tuo . 
cof | the library Games Tapes. It is called "BIRTHDAY" and will ask for 

your birthday and tell you which day you were born on. 






i : 
Same advice for the more adventurous,” if you would like to change 
Ең "Snoopy" picture, lines 820 to 1360 is the Part to change to your 
Qu design. Also you сап make a x-mas present with it.  Give- “AWAY 
calendars are just not being given away anymore. E 
i 






ux D. Fe . — MAIL BAG ЖЕЗ MAIL BAG X3 
| a TWO REVIEWS BY PETER WATSON 


ыы vs CRASH-4 








he'car.that'is coming the opposite way. This car can . 








| this game very repetitive, and the ringing sound іп. 
ats, annoying after a while. и 


ES 


but. 





there are a number. o 


ZO 





jou. have. to run over the dots in the maze, at the зале с 


Лапе». diving. you only a fraction of a second — 
When you run over all: the dots you start a пеш: 















EE limited fuel supply: 50 each frame doesn't last forever and a 
BE. Also, in frame three (3) gou get a second car trging to crash 
E you, and in frame five (5) you have three (3) cars all trying ҰО: 
фор you. . То overcome this you have a speed button to get out of any 
eight spots. This makes Crash-4 a much varied game. 
Ж Go, the final verdict is: 

ist Crash—-4 е znd Crash-z 





h d 


| | CIRCUS VS BUST-OUT 


. In CIRCUS you Have to move а Jumping board to bounce the 
stick-figures up and burst the balloons. You also have to catch the 
figures as they fall or they will go splat.on the ground. This game 
can be frustrating, as the figures do not always bounce in the 
direction that you want them toy and can fall in a place uhere it is 
impossible to catch them. 

BUST-OUT is visually a much plainer game. The object, once again, is 
tə burst balloons, but this time it is done with a bouncing ball. You 
must keep this ball from disappearing off the bottom of the screen by 
blocking its path with the bumper/platform. Although it is repetitive 
iti requires a certain amount of skill, whereas Circus relies more on 
luck (at least when I Play.) 

ох So I would rank them: 
ist Pust Qut znd Circus 


Peter ends his letter: 


| "Оһ, I also have a question. Have ang members had the patience to 
Gee how long the VZ takes to make a move on Chess Level 6? I once 
tried it on level 53 with the expansion unit. and it took 50 minutes: 


a 


drawings in the past newssletters have been great, and I hope to see 
mare in the future." 


| While I've got space here I’d like to say that I think Mitch’s 


Mitch would like to say thanks for the compliment (thank you!) and 
I| uould like to say thanks for the revieus. (thanks they lighten my 
toad.) . 


If you have some info you want printed: send tas 


TIM PENDLEBURY 
P.O.Box 917 
Griffiths N.S. ы» 26580. 


. 
— — — — — 
V E. due > 
47.2 ав. 
А 


— the heading for the last issue this Heading was done Dy my 
brother, Mitch; again using the "SKETCHES" joystick drawing program 
from the games library. I will use any headings sent to me. 


_ |. And remembers all correspondence will be acknowledged in the games 
column, but if you want an earlier reply enclose a stamped addressed 
envelope with your letter and I will write to you. 


Ф 
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THE HIGH 














GAME SCORE • LEVEL HOLDER ALL TIME CHALLENGE | 
HIGH | 
ASTEROIDS 110000 
BUST OUT 3940 
CIRCUS 3180 
CRASH-2 1969 2 PETER WATSON 52 
CRASH-4 881 4 FETER WATSON КЕНТ 
DAWN PATROL | 99600 78100 — PAUL FRANTZ .— . 
DEFENCE PENET 2085 3/S TIM PENDLEBURY —— 
DEFENCE FENET 2645 TIM PENDLEBURY 
DIG OUT 83700 | Dx 
GALAXON 339670 328460 PETER WATSON 
GHOST BUSTER | | ERIS 
HAMBURGER SAM 97900 | 
HOPPY 25550 ЕГ Т 
KAMIKAZE NEW A.T HIGH EtebccOOCOOE 097 60 %%%%174850 PETER WATSON 
KILLER TOMATO — 570 JS/KB 92 PETER WATSON 19900 
KNGS & DRAGÜNS EASY 5500 
KNGS & DRAGONS ЕХРЕКТ 1200 — 
| LADDER CHAL 29500 24580 PETER WATSON | 
LUNAR LANDER TAPE 3 76600 БЕС мым 
; LUNAR LANDER ТАРЕ 5 | 8000 О. 
£ MAZE OF ARGON 102684 78306 PETER WATSON =s oo 
MISSILE ATTACK En — 2 
2 РАМІК 16720 ' 11540 PETER WATSON’ O 
4 PENGUIN 5510 F^ "5 
j | PHAROAH? S CURSE 204 1 TIM PENDLEBURY 
à PHAROAH?” S CURSE 297 2 TIM PENDLEBURY 
1 PHAROAH?’ S CURSE 321 3 TIM PENDLEBURY 
1 PHAROAH? S CURSE 255 4 TIM PENDLEBURY 
4 | PHAROAH?” S CURSE 171 5 TIM PENDLEBURY 
1 PLANET PATROL 1588 
I SPACE RAM 1441 
1 STAR BLASTER 373 5 TIM PENDLEBURY 
: STAR BLASTER 419 4 TIM PENDLEBURY 
1 Co STAR BLASTER 625 3 TIM PENDLEBURY 
à STAR BLASTER 885 2 ТІМ PENDLEBURY | 
STAR BLASTER 897 і TIM PENDLEBURY 
SUPER SNAKE | | 
1 TEN PIN BOWS 
1 VZ INVADERS 
3 | . PLEASE 





When sending an article to Tim for inclusion in y 


. newsletter,please remember that Tim has 8 deadline to meet with 
me. So please post early enough for Tim to get ir no later’. 
the 10th of the month. Otherwise it may not be. printed unti 
! SU Edo: ИЗ | o 0 
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t m b 2 
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c — Rt te — TEC VR. fe 


Жазы 


AND TOKENS LIST 





1821h In ROM 
61770 

| DEC НЕХ pec НЕХ 
END 128 80 (NAME) 169 A? OR 211 05 
FOR 129 81 (KILL) 170 АА > 212 04 
RESET 1:0 82 (LSET) 180 AB = 213 05 
SET 151 83 (RSET у 181 AC € 214 06 
CLS 152 84 (SAVE) 182 AD SGN 215 07 
(CMD) 133 85 (SYSTEM) 183 AE INT 216 08 
(RANDOM) 134 86 LPRINT 184 AF ABS 217 09 
МЕХТ 155 87 (DEF) 185 ВО (еке 218 D^ 
DATA 136 88 POKE 186 Bi INP 219 DB 
INPUT 157 89 PRINT 187 B2 (pos) 220 DC 

рім 1:8 8A CONT 188 B3 SOR 221 DD 

| READ 1:9 8B LIST 189 ВА RND 222 DE 
LET 140 8С LLIST 190 BS LOG 223 DF 
GOTO 141 80 (DELETE) 191 Bo ЕХР 224 ЕО 
RUN 142 ВЕ (AUTO) 192 B7 cos 225 El 
IF 145 oF CLEAR 193 B8 SIN 226 Е2 
RESTORE 144 99 CLOAD 194 B9 TAN 227 ЕЗ 
GOSUB 145 91 CSAVE 195 BA АТМ 228 E^ 
RETURN 146 92 NEW 195 ВВ РЕЕК 229 ES 

147 95 ТАВ( 197 ВС (см1) 250 Eb 
198 BD (evo) 251 67 
232 ЕВ 








JUMP TABLE 


4008 
400B 
400E 
4011 


4014 
4017 
401A 
401D 


4020 









^ VERB ACTION ROUTINES 








... 


FUNCTION TOKENS - 








D7h - ҒАҺ 11:3 Dowy 250d. 
JUMP TABLE мо -. ЕЕ Мм 2 
5640$ - 
- 57114 а 

098A E9 

OB37 EA D 

0977 EB LOF 

2704 EC : 

2AEF ED 

27F5 EE 

13E7 EF 

14C9 ҒО 

0809 Fi 

1439 F2 

1541 F3 

1547 F4 

1508 . F5 

15BD F6 

2CAA F7 

7952 F8 

7958 F9 

FA 

VERSION 1.24 
5-41 
5-52 — 
4241 
4717 
4749 
4754 
4BOS8 40894 INITIALISE DISK 
5567 SSE COMMAND INTERUPY 
53B9 SSBi ASCII TO HEX 
SIEA REZ READ IDAM :: — 


587B 
 SBBF 
5915 













СКЕАТЕ ENTRY. 
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PROGRAM INTERPRETER AND EXECUTIONER ERR 
EXECUTION DRIVER 105Ah. TO 1DEIh. E 


— — * ——— .- сте -. м-- -` -- um d 


—— m 


— — «6+ < > e 


(DE CD 58 O5 — CALL O35B .DOS EXIT & KEYBOARD AND SCANNER 
- 1D21 87 CR A "IF KEY WAS PRESSED ON SET FLAGS | 


1022 C4 АО 10 CALL NZ, 1DAO .SEE IF BREAK KEY WAS PRESSED 
(78Е6) Н. ;ЅАМЕ ADDRESS OF LAST BYTE EXECUTED IN CURRENT 


М 





1 1025 22 Еб 78 Ш Е А 
1 1028 ED 73 EB 78 LD (78ЕВ),5Р ;ЅАМЕ CURRENT STACK POINTER 

| 102C 7E LD A, (HD “GET NEXT CHARACTER FROM INPUT STRING 

1 1D2D FE ЗА CP ':' “TEST FOR COMPOUND STATEMENT 

| 1D2F 28 29 JR Z,105A ҮР IF COLON TO EXECUTION DRIVER 

1 1051 B7 R А .SET STATUS FLAGS 

: 1052 C2 97 19 Р М№,1907 NOT NUL BYTE. JUP TO SYNTAX EXIT 

1 | INC OH “POINT TO NEXT CHAR. IN STATEMENT (LSB) 

4  10567E WD А, Н) “GET NEXT CHARACTER | 

ЯФ 10725 INC HL ;POINT TO MSB 

- 10:8 B6 в Ч) ;TEST FOR ZERO 

$ 1059САЈЕ19Ә R ZIJE IMPLIES END СЕ STSTMENT. -EXIT 

Я 105 25 INC HL | 

1 1030 5E LD E, H) ;GET LINE МЕЕ OF NEXT STATEMENT AND PUT 
1 С ТМ | | 

і 103E 23 INC HL | 

; 103Е 56 о о, (Н) ;DE - BINARY OF NEXT LINE NUMBER 
4 < 1040 ЕВ. EX ТЕН. "HL = LINE NO. OF NEXT STATEMENT 


UPDATE LAST EXECUTED LINE TO CURRENT LINE NO. 


LE 


ШІ 000012275. 0 овон. 


























“1044: 3A. 1B 79 © LD А, (7918) ;GET TRACE FLAG. O-TROFF. 
DW? BZ: — в А “SET STATUS FLAG i0 
80F ^ |. 7,1059 — . ; JUP IF TROFF. PALL THROUGH IF TRON 


° SANE DE SINCE DISPLAY USES IT 


ASCII "»" 

„PRINT CHARACTER "A" 

De LINE NO. TO BINARY AND PRINT IT 

— II "«* 

"T “PRINT CHAR. IN A. THIS GIVES LINE NO. IN TRON 


;RESTORE DE 
oH = CODE STRING LINE NUMBER 


wee we we 


we 


а 
» 
ғ 





EXIT IF. EOS "MAD - К оо BACK с то ІШЕ 
“SCOMPUTE RELATIVE TOKEN. (TOKEN RANGE 80-F6) 
NOT A TOKEN-MUST BE ASSIGNENT STATEMENT 
TEST IF TOKEN BELOW TAB TOKEN 

JUMP IF TOKEN =98C (TAB-MIDS) 

et No. pd 2 








we Фо we зе т. -... 





;SAVE | н. | (CURRENT LINE NUMBER) | | 
;POINT AT START VERB ACTION ROUTINES 
ұнына J АТ UP — VERB ACT ION 


SAVE IT TO ТАК о 
RESTORE CODE STRING ADDRESS 


ы. баг 





P 


n check next char. in string. On entry HL points to start of string 
“0, “ORL and 20(SP) ignored On exit A contains character | "EU eb 
мк a HL points to character "id e 
: C=1 (if numeric) | BL | 























1078 25 © IK HL - (BUP THE NEXT CHARACTER | 

1D79 7E LD — A, (HD ;GET NEXT CHARACTER 

107A FE 3A СР o or” . iQQPARE WITHCOON ы | 

1D7C DO |..RT NC 2088. > ::SO FINISH. i edt is a 6,1, €,..A-Z 

1070 ҒЕ 20 CP t+ ;ELSE TEST FOR BLANK “> | E 

107Е СА 78 10 JP 3: GETNEXT: CHAR, ТЕ ТТ. IS A BLANK 5. | 

1082 FE 0B СР. ;COMPARE.WITH VERTICAL TAB ^ 4. 11 

1084 30 05 R ЈР ТЕ АВ УМЮТ А CONTROL E | m D 

1086 ҒЕ 09 СР 4TEST.FOR HORIZONTAL TAB © mE s Е E 

1088 D2 78 1D JP ; JUP IF: NOT A HORIZONTAL TAB (09) OR LF (OA) E Ж 

1D8B FE 30 CP : PARE: WITH ASCII ZERO | uu ee et ; 

1080 3F CCF .. ;SET CARRY.IF NUMERICO-30) 0 rs : 

1D8E 3C IC A . ;CLEAR CARRY IF NOT NUMERIC (<30) | ққ теді i 

1D8F 3D OEC A ... ;SET STATUS. FLAGS (EXCEPT CARRY ) ACCORDING To сна. | 

uORSONSONIUATIENTION Mose eese E E 

Peter Watson has asked that I publish his address, and 7 | І 


to advise that he would like to correspond with other members. So 
don't be shy. He may let you into the secret of how he gets his 
HIGH SCORES. And you never know, between you perhaps I may get 
some good GEN. to help fill these pages. 


Peter's address is:- 


PETER WATSON, 3 GORDON STR., CULCAIRN. N.S.W. 2660 


|" €COFEFE-CCITIOPnF TQ LAST ISSUE 


A 


Wheri comparing IBM and VZ screens, I stated that VZ had 32 pixels to a 
screen. This was an error and should have been 128. 


Thanks to Peter for drawing my attention to this. (Ed.) 





